﻿' <summary>
' BeeWit IDE Entorno de desarrollo Visual para php.
' BeeWitPHP IDE es el único entorno de desarrollo para PHP 
' de tipo WYSIWYG (What You See Is What You Get). 
' ¡Ahora si!, aproveche la potencia del lenguaje PHP 
' y desarrolle más rápidamente gracias a la programación 
' intuitiva de BeeWit.
' Copyright © 2010 Dewins Murillo Garcia 
' EMAIL: dewinsmg@gmail.com
' EMAIL: dewins@beewitsoft.com
' Este Programa es Software Libre: usted puede redistribuirlo 
' y/o modificarlo bajo los términos de la Licencia Publica General 
' GNU como es publicada por la Fundacion de Software Libre; 
' en la 3ra versión de la licencia.
' Este programa es distribuido con la esperanza de que sea útil, 
' pero SIN GARANTÍA ALGUNA; sin siquiera la garantía implícita 
' de VALOR COMERCIAL o FORMADO PARA UN PROPÓSITO EN PARTICULAR. 
' Vea la Licencia Publica General GNU para mas detalles.
' Usted debe haber recibido una copia de la Licencia Publica General 
' GNU junto con este programa. Si no, vaya a http://www.beewitsoft.com
' o en http://code.google.com/p/ajax-beewit-php-ide/
' </summary>
' <remarks></remarks>

Public Class clsNode
    Inherits TreeNode

    Private _Path As String
    Private _ContentCode As String
    Private _ContentView As String
    Private _Extention As String
    Private _TypeCode As TypeCode

    Enum enumTypeCode
        isCLASS
        isCONTROL
        isHTML
        isPHP
        isTXT
        isJS
        isCSS
        isOTHER
    End Enum

    Property Path()
        Get
            Return _Path
        End Get
        Set(ByVal value)
            _Path = value
            _Extention = value.ToString.Substring(value.ToString.LastIndexOf(".") + 1).ToUpper
            _TypeCode = enumTypeCode.isOTHER
            If _Extention = "CJX" Then
                _TypeCode = enumTypeCode.isCONTROL
            End If
            If _Extention = "CLS" Then
                _TypeCode = enumTypeCode.isCLASS
            End If
            If _Extention = "PHP" Then
                _TypeCode = enumTypeCode.isPHP
            End If
            If _Extention = "JS" Then
                _TypeCode = enumTypeCode.isJS
            End If
            If _Extention = "CSS" Then
                _TypeCode = enumTypeCode.isCSS
            End If
            If _Extention = "TXT" Then
                _TypeCode = enumTypeCode.isTXT
            End If
            If _Extention = "HTM" Or _Extention = "HTML" Then
                _TypeCode = enumTypeCode.isHTML
            End If
            If _TypeCode <> enumTypeCode.isOTHER Then
                _ContentCode = Project_Interfaz.GetContentFile(_Path)
                If _TypeCode = enumTypeCode.isCONTROL Then
                    _ContentView = Project_Interfaz.GetContentFile(_Path & ".view")
                End If
                If _TypeCode = enumTypeCode.isHTML Then
                    _ContentView = _ContentCode
                End If
            End If
        End Set
    End Property

    Property Extention() As String
        Get
            Return _Extention
        End Get
        Set(ByVal value As String)
            _Extention = value
        End Set
    End Property

    Property TypeCode() As enumTypeCode
        Get
            Return _TypeCode
        End Get
        Set(ByVal value As enumTypeCode)
            _TypeCode = value
        End Set
    End Property

    Public Sub New()

    End Sub

    Public Property ContentCode() As String
        Get
            Return _ContentCode
        End Get
        Set(ByVal value As String)
            _ContentCode = value
        End Set
    End Property

    Public Property ContentView() As String
        Get
            Return _ContentView
        End Get
        Set(ByVal value As String)
            _ContentView = value
        End Set
    End Property

End Class
